clear all;
clc;
s = 50;
load 7nn_eigs_test;
load mnist_test;
l = 5000;
Yor = yU';
Y = yU(1:l)';
n = size(yU,2);
V = VV(:,1:s);
XQ = xU*V;
TT = XQ'*inv(xU*xU')*XQ;
clear VV;
clear xU;

C = 1;

[Yp,numsv] = mmtp(V,Y,TT,C);

trerr = calerr(Yp(1:l),yL')
tserr = calerr(Yp(l+1:n),yU')

save('res/laplap','trerr','tserr','numsv');
